home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
xwordtst.arc
/
XWORDB.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-06-06
|
1KB
|
41 lines
l = INSTR(COMMAND$, " ")
T$ = UCASE$(COMMAND$)
IF l > 1 THEN e$ = MID$(T$, l + 1): l = l - 1: T$ = LEFT$(T$, l) ELSE l = LEN(T$)
IF (l < 2) OR (l > 18) THEN PRINT "Syntax ?X?X": END
n$ = "WORDS" + MID$(STR$(l), 2) + ".DAT"
PRINT "Searching "; n$; " for "; T$;
IF LEN(e$) = 0 THEN PRINT ELSE PRINT " Excluding "; e$
OPEN n$ FOR INPUT AS #1
WHILE NOT EOF(1)
f% = 0
INPUT #1, A$
IF LEN(e$) > 0 THEN
FOR i = 1 TO LEN(e$)
IF INSTR(A$, MID$(e$, i, 1)) THEN f% = 1
NEXT i
END IF
IF f% = 0 THEN
FOR i = 1 TO l
IF MID$(T$, i, 1) = "?" THEN f% = f% + 1 ELSE IF MID$(A$, i, 1) = MID$(T$, i, 1) THEN f% = f% + 1
NEXT i
IF f% = l THEN
FOR i = 1 TO l
FOR j = 1 TO l
IF j <> i THEN IF MID$(A$, i, 1) = MID$(T$, j, 1) THEN IF MID$(T$, i, 1) <> MID$(T$, j, 1) THEN COLOR 6
NEXT j, i
PRINT A$; " ";
COLOR 7
IF POS(0) > 79 - l THEN PRINT
END IF
END IF
WEND
PRINT
CLOSE #1
END